home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue30 / vssdigi / VSSDIGI.ZIP / Examples / misc / unumgrid.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-12-19  |  1.6 KB  |  70 lines
  1. //******************************************************************************
  2. //                        VARIAN LED STUDIO v2.00
  3. //               (c) VARIAN SOFTWARE SERVICES NL 1996-1997
  4. //                          ALL RIGHTS RESERVED
  5. //******************************************************************************
  6.  
  7. unit unumgrid;
  8.  
  9. interface
  10.  
  11. uses
  12.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  13.   StdCtrls, vrgrid;
  14.  
  15. type
  16.   TForm1 = class(TForm)
  17.     VrNumGrid1: TVrNumGrid;
  18.     Button1: TButton;
  19.     Label1: TLabel;
  20.     procedure Button1Click(Sender: TObject);
  21.     procedure VrNumGrid1Click(Sender: TObject);
  22.     procedure FormCreate(Sender: TObject);
  23.   private
  24.     CellClick: Integer;
  25.   public
  26.     { Public declarations }
  27.   end;
  28.  
  29. var
  30.   Form1: TForm1;
  31.  
  32. implementation
  33.  
  34. {$R *.DFM}
  35.  
  36. procedure TForm1.FormCreate(Sender: TObject);
  37. var
  38.   I: Integer;
  39. begin
  40.   with VrNumGrid1 do
  41.     for I := 0 to Pred(Count) do
  42.       Items[I].Visible := I <= 18;
  43.   CellClick := -1;
  44.   VrNumGrid1Click(self);
  45. end;
  46.  
  47. procedure TForm1.Button1Click(Sender: TObject);
  48. begin
  49.   VrNumGrid1.TrackMouse := not VrNumGrid1.TrackMouse;
  50. end;
  51.  
  52. procedure TForm1.VrNumGrid1Click(Sender: TObject);
  53. const
  54.   LabelText = 'Selected item: %d';
  55. var
  56.   Id: Integer;
  57. begin
  58.   Label1.Caption := Format(LabelText, [Succ(VrNumGrid1.Selected)]);
  59.   Id := VrNumGrid1.Selected;
  60.   if CellClick <> -1 then
  61.       VrNumGrid1.Items[CellClick].Active := false;
  62.   if Id <> -1 then
  63.   begin
  64.     CellClick := Id;
  65.     VrNumGrid1.Items[CellClick].Active := true;
  66.   end;
  67. end;
  68.  
  69. end.
  70.